home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0132_New 28 Line Mode.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-03  |  517b  |  25 lines

  1. {
  2. > I found this code in SWAG at EGAVGA.SWG category however It
  3. > doesn't switch my screen in 28 lines mode.
  4.  
  5. That's because all values must be hex. Add a 'h' to all numbers, and it should
  6. be fine. Or try this:
  7. }
  8. program test28rows;
  9.  
  10. procedure switch28; assembler;
  11. asm
  12.   mov ax,1202h     { set up 400 scan lines }
  13.   mov bl,30h
  14.   int 10h
  15.   mov ax,0003h     { set up normal text mode }
  16.   int 10h
  17.   mov ax,1111h     { load ega character set }
  18.   mov bl,00h
  19.   int 10h
  20. END;
  21.  
  22. begin
  23.   switch28;
  24. end.
  25.